#!/usr/local/bin/perl
use warnings;
sub main()
{
$a = 0;

$b = 0;

$str = "";
$a = 1;

$b = 1;

while ($a) {
$str = <STDIN>;
print $str;
if ($b!=3){$b = $b+1;
}
 else {$a = 0;
}
print $b;
}


return 0;
}

print main();
